home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / alphaspell / rexx / merge.asp < prev    next >
Encoding:
Text File  |  1997-02-16  |  1.1 KB  |  59 lines
  1. /* merge.asp */
  2.  
  3. ARG pat
  4.  
  5. ADDRESS ALPHASPELL
  6. OPTIONS RESULTS
  7.  
  8. n = FileList(pat, files,  "F", "E")
  9. i = 1
  10. x = 1
  11. DO WHILE x <= n
  12.     first = files.x
  13.     x = x + 1
  14.     IF x > n THEN second = first
  15.     ELSE DO
  16.         second = files.x
  17.         x = x + 1
  18.     END
  19.     dest = "words" || i || ".amd"
  20.     i = i + 1
  21.     "MERGE" first second dest
  22.     IF RC == 0 THEN DO
  23.         CALL DelDict(first)
  24.         IF first ~= second THEN CALL DelDict(second)
  25.     END
  26. END
  27.  
  28. DO FOREVER
  29.     n = FileList("*.amd", files, "F", "E")
  30.     IF n == 1 THEN LEAVE
  31.     x = 1
  32.     DO WHILE x <= n
  33.         first = files.x
  34.         x = x + 1
  35.         IF x > n THEN second = dest
  36.         ELSE DO
  37.             second = files.x
  38.             x = x + 1
  39.         END
  40.         dest = "words" || i || ".amd"
  41.         i = i + 1
  42.         "MERGE" first second dest
  43.         IF RC == 0 THEN DO
  44.             CALL DelDict(first)
  45.             CALL DelDict(second)
  46.         END
  47.     END
  48. END
  49.  
  50. "QUIT"
  51. EXIT
  52.  
  53. DelDict: PROCEDURE
  54.     ARG file
  55.     CALL Delete(file)
  56.     file = Left(file, Length(file)-1) || x
  57.     IF Exists(file) THEN CALL Delete(file)
  58.     RETURN
  59.